<%
body=Replace(body,"$gn_header$",fsoGetHtml(gn_header))
body=Replace(body,"$gn_footer$",fsoGetHtml(gn_footer))
body=Replace(body,"$gn_siteName$",htmlDecoder(gn_siteName))
body=Replace(body,"$gn_siteUrl$",htmlDecoder(gn_siteUrl))
body=Replace(body,"$gn_keywords$",htmlDecoder(gn_keywords))
body=Replace(body,"$gn_description$",htmlDecoder(gn_description))
body=Replace(body,"$gn_copyright$",htmlDecoder(gn_copyright))
body=Replace(body,"$gn_beian$",htmlDecoder(gn_beian))

Call public_runsub("$navigate")

Call public_runsub("$ad")
Call public_runsub("$notice")
Call public_runsub("$link")
Call public_runsub("$vote")
Call public_runsub("$slide")

Call public_runsub("$newArticle")
Call public_runsub("$hotArticle")
Call public_runsub("$putArticle")
Call public_runsub("$newAlbum")
Call public_runsub("$hotAlbum")
Call public_runsub("$putAlbum")

Call public_runsub("$search")
Call public_runsub("$siteMap")


Sub public_runsub(label)
    on error resume next
    Dim tmp1,tmp2,i
    Dim tmpstr,para
    tmp2 = 1
    While InStr(tmp2, body, label) > 0
        tmp1 = InStr(tmp2, body, label)
        tmp2 = InStr(tmp1 + 1, body, "$")
        tmpstr = Mid(body, tmp1, tmp2 - tmp1)
        tmpstr = Replace(tmpstr, "(", "")
        tmpstr = Replace(tmpstr, ")", "")
        tmpstr = Trim(Replace(tmpstr, label, ""))
        para = Split(tmpstr, ",")
        Select Case label
        Case "$navigate" '导航条
            body=replace(body,label&"("&tmpstr&")$",navigate(para(0),para(1),para(2),para(3)))
        Case "$ad" '广告插件
            body=replace(body,label&"("&tmpstr&")$",ad(para(0),para(1)))
        Case "$notice" '公告插件
            body=replace(body,label&"("&tmpstr&")$",notice(para(0),para(1)))
        Case "$link" '链接插件
            body=replace(body,label&"("&tmpstr&")$",link(para(0),para(1),para(2)))
        Case "$vote" '投票插件
            body=replace(body,label&"("&tmpstr&")$",vote(para(0),para(1),para(2)))
        Case "$slide" '幻灯片插件
            body=replace(body,label&"("&tmpstr&")$",slide(para(0),para(1),para(2)))
        Case "$newArticle" '最新文章
            body=replace(body,label&"("&tmpstr&")$",newArticle(para(0),para(1),para(2),para(3),para(4)))
        Case "$hotArticle" '热门文章
            body=replace(body,label&"("&tmpstr&")$",hotArticle(para(0),para(1),para(2),para(3),para(4)))
        Case "$putArticle" '推荐文章
            body=replace(body,label&"("&tmpstr&")$",putArticle(para(0),para(1),para(2),para(3),para(4)))
        Case "$newAlbum" '最新图集
            body=replace(body,label&"("&tmpstr&")$",newAlbum(para(0),para(1),para(2),para(3),para(4)))
        Case "$hotAlbum" '热门图集
            body=replace(body,label&"("&tmpstr&")$",hotAlbum(para(0),para(1),para(2),para(3),para(4)))
        Case "$putAlbum" '推荐图集
            body=replace(body,label&"("&tmpstr&")$",putAlbum(para(0),para(1),para(2),para(3),para(4)))
        Case "$search" '搜索框
            body=replace(body,label&"("&tmpstr&")$",search(para(0)))
        Case "$siteMap" '网站地图
            body=replace(body,label&"("&tmpstr&")$",siteMap(para(0),para(1),para(2),para(3)))
        End Select
    Wend
End Sub
%>